home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / rexx.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  4.3 KB  |  95 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  4.    (REXX-RUN-COMMAND REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND REXX-DO-COMMAND
  5.     REXX-LOOP
  6.   ))
  7. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  8. #Y(#:TOP-LEVEL-FORM-4
  9.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  10.    (SPECIAL *REXX-OUTMSG-LIST*) *REXX-OUTMSG-LIST*
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  13.    REXX-ADD-INDEX REMOVE-OLD-DEFINITIONS
  14.    #Y(REXX-ADD-INDEX
  15.       #18Y(00 01 00 01 00 08 39 01 AA 94 72 0E 00 55 0F 00 19 03)
  16.       *REXX-OUTMSG-LIST*
  17.   )  )
  18. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  19.    REXX-FIND-INDEX REMOVE-OLD-DEFINITIONS
  20.    #Y(REXX-FIND-INDEX #16Y(00 01 00 00 00 02 A9 63 00 D5 36 02 2F E3 19 02)
  21.       *REXX-OUTMSG-LIST* #.#'EQUAL
  22.   )  )
  23. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  24.    REXX-DELETE-ENTRY REMOVE-OLD-DEFINITIONS
  25.    #Y(REXX-DELETE-ENTRY
  26.       #19Y(00 01 00 00 00 02 A9 63 00 36 07 BF EC 30 6D 0F 00 19 02)
  27.       *REXX-OUTMSG-LIST* #.#'EQ
  28.   )  )
  29. #Y(#:TOP-LEVEL-FORM-8
  30.    #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01)
  31.    REXX-SEND-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  32.    "Starts asynchronous execution of a rexx command." %SET-DOCUMENTATION
  33.    #Y(REXX-SEND-COMMAND
  34.       #28Y(00 01 00 00 81 00 00 05 00 00 90 05 B0 9A 6F 01 89 00 03 00 19 09 14
  35.            2D 06 15 19 08
  36.           )
  37.       :RESULT :STRING :TOKEN :ASYNC :IO %REXX-PUT REXX-ADD-INDEX
  38.   )  )
  39. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  40.    REXX-NEXT-EVENT REMOVE-OLD-DEFINITIONS
  41.    #Y(REXX-NEXT-EVENT
  42.       #20Y(00 00 00 00 00 01 1A 04 16 01 2C 01 2C 00 14 8A 00 76 19 02)
  43.       %REXX-GET %REXX-WAIT-INPUT
  44.   )  )
  45. #Y(#:TOP-LEVEL-FORM-10
  46.    #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01)
  47.    REXX-LOOP REMOVE-OLD-DEFINITIONS FUNCTION
  48.    "Rexx driver loop. Optional message to wait for." %SET-DOCUMENTATION
  49.    #Y(REXX-LOOP
  50.       #31Y(00 00 00 01 00 07 00 29 01 37 02 01 00 0B 00 00 43 00 0A AB AB 65 01
  51.            02 2F 5A 44 19 03 19 03
  52.           )
  53.       REXX-LOOP
  54.       #Y(LISP::REXX-LOOP-1
  55.          #121Y(00 00 00 00 00 01 2C 02 14 92 54 70 85 2F 39 5B 4D 80 52 43 04
  56.                80 4D 36 01 6A 8B 4D 18 AD 2A 05 01 10 06 9E 54 70 36 05 69 83
  57.                69 60 AE 2F 89 11 AA 30 8C 3B 4E 5F 00 00 36 01 30 91 4F 16 01
  58.                EF 44 4E 1A 21 92 54 45 01 8B 00 67 03 8A 00 05 14 8C 02 2F D3
  59.                16 01 8B 00 61 00 00 85 29 66 00 19 02 C5 1A 0B 4E 05 00 01 70
  60.                05 00 00 1B 73 C6 14 5F 00 00 2B 03 09 4F 19 03
  61.               )
  62.          NIL NIL REXX-NEXT-EVENT REXX-FIND-INDEX TRY-REP
  63.          #Y(LISP::REXX-LOOP-1-1 #9Y(00 00 00 00 01 16 00 45 00) NIL)
  64.          *ERROR-HANDLER* 0. 5. %REXX-REPLY
  65.   )  )  )
  66. #Y(#:TOP-LEVEL-FORM-11
  67.    #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01)
  68.    REXX-WAIT-SENT-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  69.    "Waits for command termination." %SET-DOCUMENTATION
  70.    #Y(REXX-WAIT-SENT-COMMAND
  71.       #34Y(00 01 00 00 00 02 1A 09 D5 AB 5A 01 AA 2D 03 16 01 A9 67 00 8A 00 71
  72.            92 54 1C 71 A8 2D 02 92 54 19 03
  73.           )
  74.       REXX-FIND-INDEX "No waiting for ~S possible." REXX-DELETE-ENTRY REXX-LOOP
  75.   )  )
  76. #Y(#:TOP-LEVEL-FORM-12
  77.    #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01)
  78.    REXX-DO-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  79.    "Executes command, waiting for result." %SET-DOCUMENTATION
  80.    #Y(REXX-DO-COMMAND
  81.       #27Y(00 01 00 00 C1 00 00 00 00 00 90 00 AB 95 6F 01 89 00 03 00 19 04 14
  82.            2D 01 19 04
  83.           )
  84.       REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND
  85.   )  )
  86. #Y(#:TOP-LEVEL-FORM-13
  87.    #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01)
  88.    REXX-RUN-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  89.    "Runs a rexx command asynchronously, no return code." %SET-DOCUMENTATION
  90.    #Y(REXX-RUN-COMMAND
  91.       #32Y(00 01 00 00 80 1C 00 02 00 00 39 02 39 01 AB D4 AC D5 AD D6 5C 2B 07
  92.            03 1B 03 00 19 04 02 19 04
  93.           )
  94.       :STRING :TOKEN :ASYNC REXX-DO-COMMAND
  95.   )  )